/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / skk / skk-gadget.elc.z / skk-gadget.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 73 74 65 76 65 40 61 |piled by| steve@a|
|00000020| 6c 74 61 69 72 2e 78 65 | 6d 61 63 73 2e 6f 72 67 |ltair.xe|macs.org|
|00000030| 20 6f 6e 20 54 68 75 20 | 4e 6f 76 20 32 30 20 31 | on Thu |Nov 20 1|
|00000040| 38 3a 30 34 3a 32 35 20 | 31 39 39 37 0a 3b 3b 3b |8:04:25 |1997.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 78 65 6d 61 63 73 2f | 32 30 2e 33 2f 78 65 6d |/xemacs/|20.3/xem|
|00000070| 61 63 73 2d 32 30 2e 33 | 2f 6c 69 73 70 2f 73 6b |acs-20.3|/lisp/sk|
|00000080| 6b 2f 73 6b 6b 2d 67 61 | 64 67 65 74 2e 65 6c 0a |k/skk-ga|dget.el.|
|00000090| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|000000a0| 6e 20 32 30 2e 33 20 22 | 56 61 74 69 63 61 6e 20 |n 20.3 "|Vatican |
|000000b0| 43 69 74 79 22 20 58 45 | 6d 61 63 73 20 20 4c 75 |City" XE|macs  Lu|
|000000c0| 63 69 64 2e 0a 3b 3b 3b | 20 62 79 74 65 63 6f 6d |cid..;;;| bytecom|
|000000d0| 70 20 76 65 72 73 69 6f | 6e 20 32 2e 32 35 20 58 |p versio|n 2.25 X|
|000000e0| 45 6d 61 63 73 3b 20 32 | 32 2d 4d 61 72 2d 39 36 |Emacs; 2|2-Mar-96|
|000000f0| 2e 0a 3b 3b 3b 20 6f 70 | 74 69 6d 69 7a 61 74 69 |..;;; op|timizati|
|00000100| 6f 6e 20 69 73 20 6f 6e | 2e 0a 3b 3b 3b 20 74 68 |on is on|..;;; th|
|00000110| 69 73 20 66 69 6c 65 20 | 75 73 65 73 20 6f 70 63 |is file |uses opc|
|00000120| 6f 64 65 73 20 77 68 69 | 63 68 20 64 6f 20 6e 6f |odes whi|ch do no|
|00000130| 74 20 65 78 69 73 74 20 | 69 6e 20 45 6d 61 63 73 |t exist |in Emacs|
|00000140| 20 31 39 2e 0a 0a 28 69 | 66 20 28 61 6e 64 20 28 | 19...(i|f (and (|
|00000150| 62 6f 75 6e 64 70 20 27 | 65 6d 61 63 73 2d 76 65 |boundp '|emacs-ve|
|00000160| 72 73 69 6f 6e 29 0a 09 | 20 28 6f 72 20 28 61 6e |rsion)..| (or (an|
|00000170| 64 20 28 62 6f 75 6e 64 | 70 20 27 65 70 6f 63 68 |d (bound|p 'epoch|
|00000180| 3a 3a 76 65 72 73 69 6f | 6e 29 20 65 70 6f 63 68 |::versio|n) epoch|
|00000190| 3a 3a 76 65 72 73 69 6f | 6e 29 0a 09 20 20 20 20 |::versio|n)..    |
|000001a0| 20 28 73 74 72 69 6e 67 | 2d 6c 65 73 73 70 20 65 | (string|-lessp e|
|000001b0| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 20 22 32 30 |macs-ver|sion "20|
|000001c0| 22 29 29 29 0a 20 20 20 | 20 28 65 72 72 6f 72 20 |"))).   | (error |
|000001d0| 22 60 73 6b 6b 2d 67 61 | 64 67 65 74 2e 65 6c 27 |"`skk-ga|dget.el'|
|000001e0| 20 77 61 73 20 63 6f 6d | 70 69 6c 65 64 20 66 6f | was com|piled fo|
|000001f0| 72 20 45 6d 61 63 73 20 | 32 30 22 29 29 0a 0a 28 |r Emacs |20"))..(|
|00000200| 6f 72 20 28 62 6f 75 6e | 64 70 20 27 63 75 72 72 |or (boun|dp 'curr|
|00000210| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 29 20 28 |ent-load|-list) (|
|00000220| 73 65 74 71 20 63 75 72 | 72 65 6e 74 2d 6c 6f 61 |setq cur|rent-loa|
|00000230| 64 2d 6c 69 73 74 20 6e | 69 6c 29 29 0a 0a 28 72 |d-list n|il))..(r|
|00000240| 65 71 75 69 72 65 20 27 | 6d 75 6c 65 29 0a 3b 3b |equire '|mule).;;|
|00000250| 3b 23 23 23 63 6f 64 69 | 6e 67 20 73 79 73 74 65 |;###codi|ng syste|
|00000260| 6d 3a 20 65 73 63 61 70 | 65 2d 71 75 6f 74 65 64 |m: escap|e-quoted|
|00000270| 0a 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |..(byte-|code "..|
|00000280| 21 88 c0 c2 21 87 22 20 | 5b 72 65 71 75 69 72 65 |!...!." |[require|
|00000290| 20 73 6b 6b 2d 66 6f 72 | 65 77 6f 72 64 20 73 6b | skk-for|eword sk|
|000002a0| 6b 2d 76 61 72 73 5d 20 | 32 29 0a 28 64 65 66 76 |k-vars] |2).(defv|
|000002b0| 61 72 20 73 6b 6b 2d 64 | 61 74 65 2d 61 64 20 6e |ar skk-d|ate-ad n|
|000002c0| 69 6c 20 22 5c 0a 2a 4e | 6f 6e 2d 6e 69 6c 20 1b |il "\.*N|on-nil .|
|000002d0| 24 28 42 24 47 24 22 24 | 6c 24 50 21 22 1b 28 42 |$(B$G$"$|l$P!".(B|
|000002e0| 73 6b 6b 2d 74 6f 64 61 | 79 2c 20 73 6b 6b 2d 63 |skk-toda|y, skk-c|
|000002f0| 6c 6f 63 6b 20 1b 24 28 | 42 24 47 40 3e 4e 71 49 |lock .$(|B$G@>NqI|
|00000300| 3d 3c 28 24 39 24 6b 21 | 23 1b 28 42 0a 6e 69 6c |=<($9$k!|#.(B.nil|
|00000310| 20 1b 24 28 42 24 47 24 | 22 24 6c 24 50 21 22 38 | .$(B$G$|"$l$P!"8|
|00000320| 35 39 66 49 3d 3c 28 24 | 39 24 6b 21 23 1b 28 42 |59fI=<($|9$k!#.(B|
|00000330| 22 29 0a 28 64 65 66 76 | 61 72 20 73 6b 6b 2d 6e |").(defv|ar skk-n|
|00000340| 75 6d 62 65 72 2d 73 74 | 79 6c 65 20 31 20 22 5c |umber-st|yle 1 "\|
|00000350| 0a 2a 6e 69 6c 20 1b 24 | 28 42 24 62 24 37 24 2f |.*nil .$|(B$b$7$/|
|00000360| 24 4f 1b 28 42 20 30 20 | 1b 24 28 42 24 47 24 22 |$O.(B 0 |.$(B$G$"|
|00000370| 24 6c 24 50 21 22 1b 28 | 42 73 6b 6b 2d 74 6f 64 |$l$P!".(|Bskk-tod|
|00000380| 61 79 2c 20 73 6b 6b 2d | 63 6c 6f 63 6b 20 1b 24 |ay, skk-|clock .$|
|00000390| 28 42 24 4e 3f 74 3b 7a | 24 72 48 3e 33 51 24 47 |(B$N?t;z|$rH>3Q$G|
|000003a0| 49 3d 3c 28 24 39 24 6b | 21 23 1b 28 42 0a 74 20 |I=<($9$k|!#.(B.t |
|000003b0| 1b 24 28 42 24 62 24 37 | 24 2f 24 4f 21 22 1b 28 |.$(B$b$7|$/$O!".(|
|000003c0| 42 31 20 1b 24 28 42 24 | 47 24 22 24 6c 24 50 21 |B1 .$(B$|G$"$l$P!|
|000003d0| 22 41 34 33 51 49 3d 3c | 28 24 39 24 6b 21 23 1b |"A43QI=<|($9$k!#.|
|000003e0| 28 42 0a 74 2c 20 30 2c | 20 31 20 1b 24 28 42 30 |(B.t, 0,| 1 .$(B0|
|000003f0| 4a 33 30 24 4e 1b 28 42 | 20 6e 6f 6e 2d 6e 69 6c |J30$N.(B| non-nil|
|00000400| 20 1b 24 28 42 43 4d 24 | 47 24 22 24 6c 24 50 21 | .$(BCM$|G$"$l$P!|
|00000410| 22 34 41 3f 74 3b 7a 24 | 47 49 3d 3c 28 24 39 24 |"4A?t;z$|GI=<($9$|
|00000420| 6b 21 23 1b 28 42 22 29 | 0a 28 64 65 66 76 61 72 |k!#.(B")|.(defvar|
|00000430| 20 73 6b 6b 2d 67 61 64 | 67 65 74 2d 6c 6f 61 64 | skk-gad|get-load|
|00000440| 2d 68 6f 6f 6b 20 6e 69 | 6c 20 22 5c 0a 2a 73 6b |-hook ni|l "\.*sk|
|00000450| 6b 2d 67 61 64 67 65 74 | 2e 65 6c 20 1b 24 28 42 |k-gadget|.el .$(B|
|00000460| 24 72 25 6d 21 3c 25 49 | 24 37 24 3f 38 65 24 4b |$r%m!<%I|$7$?8e$K|
|00000470| 25 33 21 3c 25 6b 24 35 | 24 6c 24 6b 25 55 25 43 |%3!<%k$5|$l$k%U%C|
|00000480| 25 2f 21 23 1b 28 42 22 | 29 0a 28 64 65 66 63 6f |%/!#.(B"|).(defco|
|00000490| 6e 73 74 20 73 6b 6b 2d | 77 65 65 6b 2d 61 6c 69 |nst skk-|week-ali|
|000004a0| 73 74 20 27 28 28 22 53 | 75 6e 22 20 2e 20 22 1b |st '(("S|un" . ".|
|000004b0| 24 28 42 46 7c 1b 28 42 | 22 29 20 28 22 4d 6f 6e |$(BF|.(B|") ("Mon|
|000004c0| 22 20 2e 20 22 1b 24 28 | 42 37 6e 1b 28 42 22 29 |" . ".$(|B7n.(B")|
|000004d0| 20 28 22 54 75 65 22 20 | 2e 20 22 1b 24 28 42 32 | ("Tue" |. ".$(B2|
|000004e0| 50 1b 28 42 22 29 20 28 | 22 57 65 64 22 20 2e 20 |P.(B") (|"Wed" . |
|000004f0| 22 1b 24 28 42 3f 65 1b | 28 42 22 29 20 28 22 54 |".$(B?e.|(B") ("T|
|00000500| 68 75 22 20 2e 20 22 1b | 24 28 42 4c 5a 1b 28 42 |hu" . ".|$(BLZ.(B|
|00000510| 22 29 20 28 22 46 72 69 | 22 20 2e 20 22 1b 24 28 |") ("Fri|" . ".$(|
|00000520| 42 36 62 1b 28 42 22 29 | 20 28 22 53 61 74 22 20 |B6b.(B")| ("Sat" |
|00000530| 2e 20 22 1b 24 28 42 45 | 5a 1b 28 42 22 29 29 20 |. ".$(BE|Z.(B")) |
|00000540| 22 5c 0a 1b 24 28 42 4d | 4b 46 7c 4c 3e 24 4e 4f |"\..$(BM|KF|L>$NO|
|00000550| 22 41 5b 25 6a 25 39 25 | 48 21 23 1b 28 42 28 1b |"A[%j%9%|H!#.(B(.|
|00000560| 24 28 42 31 51 38 6c 49 | 3d 35 2d 4a 38 3b 7a 4e |$(B1Q8lI|=5-J8;zN|
|00000570| 73 1b 28 42 20 2e 20 1b | 24 28 42 46 7c 4b 5c 38 |s.(B . .|$(BF|K\8|
|00000580| 6c 49 3d 35 2d 4a 38 3b | 7a 4e 73 1b 28 42 29 22 |lI=5-J8;|zNs.(B)"|
|00000590| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 6b 6b |).(defal|ias 'skk|
|000005a0| 2d 64 61 74 65 20 23 5b | 28 26 6f 70 74 69 6f 6e |-date #[|(&option|
|000005b0| 61 6c 20 61 6e 64 2d 74 | 69 6d 65 29 20 22 c0 20 |al and-t|ime) ". |
|000005c0| 19 5c 6e ab 88 c3 09 c4 | c5 4f 21 aa 99 c6 09 c4 |.\n.....|.O!.....|
|000005d0| c5 4f 21 c7 5a 89 1e 08 | c9 61 ab 83 ca aa 86 c3 |.O!.Z...|.a......|
|000005e0| cb 1b 0e 08 21 21 29 1e | 0c c3 cd 09 ce cf 4f 1b |....!!).|......O.|
|000005f0| 0e 10 5c 22 41 21 1e 11 | 09 d2 d3 4f 1e 14 cd 09 |..\"A!..|...O....|
|00000600| d5 d6 4f 1b 0e 17 5c 22 | 41 1e 18 d9 1e 1a d9 1e |..O...\"|A.......|
|00000610| 1b 1b d9 1e 1c 1b 0e 14 | d5 48 dd 61 ab 87 1b 0e |........|.H.a....|
|00000620| 14 c9 d9 4f 16 14 c3 1b | 0e 14 21 16 14 5c 6e ab |...O....|..!..\n.|
|00000630| 83 de aa 81 df 1b 0e 0c | e0 1b 0e 11 e1 1b 0e 14 |........|........|
|00000640| e2 e3 1b 0e 18 e4 1b 0e | 25 ad a4 c3 09 e6 e7 4f |........|%......O|
|00000650| 21 16 1a c3 09 e8 e9 4f | 21 16 1b 1b c3 09 ea eb |!......O|!.......|
|00000660| 4f 21 16 1c ec 1b 0e 1a | ed 1b 0e 1b 1b ee 1b 0e |O!......|........|
|00000670| 1c ef b0 07 b0 0b 2e 08 | 87 22 20 5b 63 75 72 72 |........|." [curr|
|00000680| 65 6e 74 2d 74 69 6d 65 | 2d 73 74 72 69 6e 67 20 |ent-time|-string |
|00000690| 73 74 72 20 73 6b 6b 2d | 64 61 74 65 2d 61 64 20 |str skk-|date-ad |
|000006a0| 73 6b 6b 2d 6e 75 6d 20 | 32 30 20 32 34 20 73 74 |skk-num |20 24 st|
|000006b0| 72 69 6e 67 2d 74 6f 2d | 6e 75 6d 62 65 72 20 31 |ring-to-|number 1|
|000006c0| 39 38 38 20 79 20 31 20 | 22 1b 24 28 42 38 35 1b |988 y 1 |".$(B85.|
|000006d0| 28 42 22 20 69 6e 74 2d | 74 6f 2d 73 74 72 69 6e |(B" int-|to-strin|
|000006e0| 67 20 79 65 61 72 20 61 | 73 73 6f 63 20 34 20 37 |g year a|ssoc 4 7|
|000006f0| 20 73 6b 6b 2d 6d 6f 6e | 74 68 2d 61 6c 69 73 74 | skk-mon|th-alist|
|00000700| 20 6d 6f 6e 74 68 20 38 | 20 31 30 20 64 61 79 20 | month 8| 10 day |
|00000710| 30 20 33 20 73 6b 6b 2d | 77 65 65 6b 2d 61 6c 69 |0 3 skk-|week-ali|
|00000720| 73 74 20 64 61 79 2d 6f | 66 2d 77 65 65 6b 20 6e |st day-o|f-week n|
|00000730| 69 6c 20 68 6f 75 72 20 | 6d 69 6e 75 74 65 20 73 |il hour |minute s|
|00000740| 65 63 6f 6e 64 20 33 32 | 20 22 22 20 22 1b 24 28 |econd 32| "" ".$(|
|00000750| 42 4a 3f 40 2e 1b 28 42 | 22 20 22 1b 24 28 42 47 |BJ?@..(B|" ".$(BG|
|00000760| 2f 1b 28 42 22 20 22 1b | 24 28 42 37 6e 1b 28 42 |/.(B" ".|$(B7n.(B|
|00000770| 22 20 22 1b 24 28 42 46 | 7c 1b 28 42 22 20 22 28 |" ".$(BF||.(B" "(|
|00000780| 22 20 22 29 22 20 61 6e | 64 2d 74 69 6d 65 20 31 |" ")" an|d-time 1|
|00000790| 31 20 31 33 20 31 34 20 | 31 36 20 31 37 20 31 39 |1 13 14 |16 17 19|
|000007a0| 20 22 20 22 20 22 1b 24 | 28 42 3b 7e 1b 28 42 22 | " " ".$|(B;~.(B"|
|000007b0| 20 22 1b 24 28 42 4a 2c | 1b 28 42 22 20 22 1b 24 | ".$(BJ,|.(B" ".$|
|000007c0| 28 42 49 43 1b 28 42 22 | 5d 20 31 38 5d 29 0a 28 |(BIC.(B"|] 18]).(|
|000007d0| 64 65 66 61 6c 69 61 73 | 20 27 73 6b 6b 2d 74 6f |defalias| 'skk-to|
|000007e0| 64 61 79 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |day #[(&|optional|
|000007f0| 20 61 6e 64 2d 74 69 6d | 65 29 20 22 c0 09 21 63 | and-tim|e) "..!c|
|00000800| 87 22 20 5b 73 6b 6b 2d | 64 61 74 65 20 61 6e 64 |." [skk-|date and|
|00000810| 2d 74 69 6d 65 5d 20 32 | 20 22 5c 0a 1b 24 28 42 |-time] 2| "\..$(B|
|00000820| 25 24 25 73 25 3f 25 69 | 25 2f 25 46 25 23 25 56 |%$%s%?%i|%/%F%#%V|
|00000830| 24 4b 35 2f 46 30 24 39 | 24 6b 24 48 38 3d 3a 5f |$K5/F0$9|$k$H8=:_|
|00000840| 24 4e 46 7c 3b 7e 24 72 | 46 7c 4b 5c 38 6c 49 3d |$NF|;~$r|F|K\8lI=|
|00000850| 35 2d 24 47 25 5d 25 24 | 25 73 25 48 24 4b 41 5e |5-$G%]%$|%s%H$KA^|
|00000860| 46 7e 24 39 24 6b 21 23 | 1b 28 42 0a 1b 24 28 42 |F~$9$k!#|.(B..$(B|
|00000870| 25 2a 25 57 25 37 25 67 | 25 4a 25 6b 30 7a 3f 74 |%*%W%7%g|%J%k0z?t|
|00000880| 24 4e 1b 28 42 20 41 4e | 44 2d 54 49 4d 45 20 1b |$N.(B AN|D-TIME .|
|00000890| 24 28 42 24 72 3b 58 44 | 6a 24 39 24 6b 24 48 21 |$(B$r;XD|j$9$k$H!|
|000008a0| 22 46 7c 3b 7e 24 4b 32 | 43 24 28 21 22 3b 7e 34 |"F|;~$K2|C$(!";~4|
|000008b0| 56 24 62 41 5e 46 7e 24 | 39 24 6b 21 23 1b 28 42 |V$bA^F~$|9$k!#.(B|
|000008c0| 0a 73 6b 6b 2d 64 61 74 | 65 2d 61 64 20 1b 24 28 |.skk-dat|e-ad .$(|
|000008d0| 42 24 48 1b 28 42 20 73 | 6b 6b 2d 6e 75 6d 62 65 |B$H.(B s|kk-numbe|
|000008e0| 72 2d 73 74 79 6c 65 20 | 1b 24 28 42 24 4b 24 68 |r-style |.$(B$K$h|
|000008f0| 24 43 24 46 49 3d 3c 28 | 4a 7d 4b 21 24 4e 25 2b |$C$FI=<(|J}K!$N%+|
|00000900| 25 39 25 3f 25 5e 25 24 | 25 3a 24 2c 32 44 47 3d |%9%?%^%$|%:$,2DG=|
|00000910| 21 23 1b 28 42 22 20 22 | 2a 50 22 5d 29 0a 28 64 |!#.(B" "|*P"]).(d|
|00000920| 65 66 61 6c 69 61 73 20 | 27 73 6b 6b 2d 63 6c 6f |efalias |'skk-clo|
|00000930| 63 6b 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |ck #[(&o|ptional |
|00000940| 6b 61 6b 75 74 65 69 2d | 77 68 65 6e 2d 71 75 69 |kakutei-|when-qui|
|00000950| 74 20 74 69 6d 65 2d 73 | 69 67 6e 61 6c 29 20 22 |t time-s|ignal) "|
|00000960| c0 20 c1 c2 20 41 c3 c4 | c5 5c 22 a0 c6 5c 22 c5 |. .. A..|.\"..\".|
|00000970| 89 89 89 1e 07 1e 08 1e | 09 1e 5c 6e 1e 0b 1e 0c |........|..\n....|
|00000980| 1b 0e 0d ab 86 1b 0e 0d | ce 61 ab 88 cf 16 08 d0 |........|.a......|
|00000990| 16 07 aa 9a 1b 0e 0d d1 | 61 ac 86 1b 0e 0d d2 61 |........|a......a|
|000009a0| ab 88 d3 16 08 d4 16 07 | aa 86 d5 16 08 d6 16 07 |........|........|
|000009b0| d7 20 1e 18 d9 8e c5 da | db 8f 2e 08 87 22 20 5b |. ......|....." [|
|000009c0| 63 75 72 72 65 6e 74 2d | 74 69 6d 65 2d 73 74 72 |current-|time-str|
|000009d0| 69 6e 67 20 66 69 6c 6c | 61 72 72 61 79 20 6d 61 |ing fill|array ma|
|000009e0| 6b 65 2d 6b 65 79 6d 61 | 70 20 6d 61 6b 65 2d 76 |ke-keyma|p make-v|
|000009f0| 65 63 74 6f 72 20 32 35 | 36 20 6e 69 6c 20 6b 65 |ector 25|6 nil ke|
|00000a00| 79 62 6f 61 72 64 2d 71 | 75 69 74 20 65 78 70 72 |yboard-q|uit expr|
|00000a10| 32 20 65 78 70 72 31 20 | 6d 65 73 20 66 69 6e 69 |2 expr1 |mes fini|
|00000a20| 73 68 20 6f 76 65 72 72 | 69 64 69 6e 67 2d 74 65 |sh overr|iding-te|
|00000a30| 72 6d 69 6e 61 6c 2d 6c | 6f 63 61 6c 2d 6d 61 70 |rminal-l|ocal-map|
|00000a40| 20 73 74 61 72 74 20 73 | 6b 6b 2d 6e 75 6d 62 65 | start s|kk-numbe|
|00000a50| 72 2d 73 74 79 6c 65 20 | 30 20 22 5b 37 38 39 5d |r-style |0 "[789]|
|00000a60| 1b 24 28 42 49 43 1b 28 | 42 22 20 22 30 1b 24 28 |.$(BIC.(|B" "0.$(|
|00000a70| 42 49 43 1b 28 42 22 20 | 74 20 31 20 22 5b 1b 24 |BIC.(B" |t 1 "[.$|
|00000a80| 28 42 23 37 23 38 23 39 | 1b 28 42 5d 1b 24 28 42 |(B#7#8#9|.(B].$(B|
|00000a90| 49 43 1b 28 42 22 20 22 | 1b 24 28 42 23 30 49 43 |IC.(B" "|.$(B#0IC|
|00000aa0| 1b 28 42 22 20 22 5b 1b | 24 28 42 3c 37 48 2c 36 |.(B" "[.|$(B<7H,6|
|00000ab0| 65 1b 28 42 5d 1b 24 28 | 42 49 43 1b 28 42 22 20 |e.(B].$(|BIC.(B" |
|00000ac0| 22 1b 24 28 42 21 3b 49 | 43 1b 28 42 22 20 6d 61 |".$(B!;I|C.(B" ma|
|00000ad0| 74 63 68 2d 64 61 74 61 | 20 6d 61 74 63 68 2d 64 |tch-data| match-d|
|00000ae0| 61 74 61 20 28 28 73 74 | 6f 72 65 2d 6d 61 74 63 |ata ((st|ore-matc|
|00000af0| 68 2d 64 61 74 61 20 6d | 61 74 63 68 2d 64 61 74 |h-data m|atch-dat|
|00000b00| 61 29 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |a)) (byt|e-code "|
|00000b10| c0 89 89 89 89 89 89 89 | 19 1a 1b 1b 1c 1d 1e 06 |........|........|
|00000b20| 1e 07 1e 08 1b 0e 09 3f | ad b1 ca cb 21 16 0c cd |.......?|....!...|
|00000b30| 1b 0e 0c ce 50 21 88 1b | 0e 1b 0f ab 9b d0 1b 0e |....P!..|........|
|00000b40| 11 1b 0e 0c 5c 22 ab 85 | d2 20 88 aa 8e d0 1b 0e |....\"..|. ......|
|00000b50| 13 1b 0e 0c 5c 22 ab 86 | d2 20 88 d2 20 88 d4 d5 |....\"..|. .. ...|
|00000b60| 21 88 aa 4a 2e 08 87 22 | 20 5b 6e 69 6c 20 73 6b |!..J..."| [nil sk|
|00000b70| 6b 2d 7a 65 6e 6b 61 6b | 75 2d 6d 6f 64 65 20 73 |k-zenkak|u-mode s|
|00000b80| 6b 6b 2d 61 62 62 72 65 | 76 2d 6d 6f 64 65 20 73 |kk-abbre|v-mode s|
|00000b90| 6b 6b 2d 6a 2d 6d 6f 64 | 65 20 73 6b 6b 2d 61 73 |kk-j-mod|e skk-as|
|00000ba0| 63 69 69 2d 6d 6f 64 65 | 20 73 6b 6b 2d 6d 6f 64 |cii-mode| skk-mod|
|00000bb0| 65 20 76 69 73 69 62 6c | 65 2d 62 65 6c 6c 20 69 |e visibl|e-bell i|
|00000bc0| 6e 68 69 62 69 74 2d 71 | 75 69 74 20 63 61 73 65 |nhibit-q|uit case|
|00000bd0| 2d 66 6f 6c 64 2d 73 65 | 61 72 63 68 20 71 75 69 |-fold-se|arch qui|
|00000be0| 74 2d 66 6c 61 67 20 73 | 6b 6b 2d 64 61 74 65 20 |t-flag s|kk-date |
|00000bf0| 74 20 6d 65 73 20 6d 65 | 73 73 61 67 65 20 22 20 |t mes me|ssage " |
|00000c00| 20 20 20 48 69 74 20 61 | 6e 79 20 6b 65 79 20 74 |   Hit a|ny key t|
|00000c10| 6f 20 71 75 69 74 22 20 | 74 69 6d 65 2d 73 69 67 |o quit" |time-sig|
|00000c20| 6e 61 6c 20 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |nal stri|ng-match|
|00000c30| 20 65 78 70 72 31 20 64 | 69 6e 67 20 65 78 70 72 | expr1 d|ing expr|
|00000c40| 32 20 73 69 74 2d 66 6f | 72 20 31 5d 20 38 29 20 |2 sit-fo|r 1] 8) |
|00000c50| 28 28 71 75 69 74 20 28 | 62 79 74 65 2d 63 6f 64 |((quit (|byte-cod|
|00000c60| 65 20 22 c0 20 11 c2 c3 | 21 0c ab 82 c3 15 c6 c7 |e ". ...|!.......|
|00000c70| c8 1b 0e 09 09 5c 22 50 | 21 88 87 22 20 5b 63 75 |.....\"P|!.." [cu|
|00000c80| 72 72 65 6e 74 2d 74 69 | 6d 65 2d 73 74 72 69 6e |rrent-ti|me-strin|
|00000c90| 67 20 66 69 6e 69 73 68 | 20 73 6b 6b 2d 64 61 74 |g finish| skk-dat|
|00000ca0| 65 20 74 20 6b 61 6b 75 | 74 65 69 2d 77 68 65 6e |e t kaku|tei-when|
|00000cb0| 2d 71 75 69 74 20 73 6b | 6b 2d 6b 61 6b 75 74 65 |-quit sk|k-kakute|
|00000cc0| 69 2d 66 6c 61 67 20 6d | 65 73 73 61 67 65 20 22 |i-flag m|essage "|
|00000cd0| 1b 24 28 42 37 50 32 61 | 3b 7e 34 56 1b 28 42 20 |.$(B7P2a|;~4V.(B |
|00000ce0| 3a 22 20 73 6b 6b 2d 74 | 69 6d 65 2d 64 69 66 66 |:" skk-t|ime-diff|
|00000cf0| 20 73 74 61 72 74 5d 20 | 36 29 29 29 5d 20 36 20 | start] |6)))] 6 |
|00000d00| 22 5c 0a 1b 24 28 42 25 | 47 25 38 25 3f 25 6b 3b |"\..$(B%|G%8%?%k;|
|00000d10| 7e 37 57 24 72 25 5f 25 | 4b 25 50 25 43 25 55 25 |~7W$r%_%|K%P%C%U%|
|00000d20| 21 24 4b 49 3d 3c 28 24 | 39 24 6b 21 23 1b 28 42 |!$KI=<($|9$k!#.(B|
|00000d30| 0a 71 75 69 74 20 1b 24 | 28 42 24 39 24 6b 24 48 |.quit .$|(B$9$k$H|
|00000d40| 24 3d 24 4e 3b 7e 45 40 | 24 4e 46 7c 3b 7e 24 72 |$=$N;~E@|$NF|;~$r|
|00000d50| 38 75 4a 64 24 48 24 37 | 24 46 41 5e 46 7e 24 39 |8uJd$H$7|$FA^F~$9|
|00000d60| 24 6b 21 23 1b 28 42 0a | 71 75 69 74 20 1b 24 28 |$k!#.(B.|quit .$(|
|00000d70| 42 24 37 24 3f 24 48 24 | 2d 24 4b 35 2f 46 30 24 |B$7$?$H$|-$K5/F0$|
|00000d80| 37 24 46 24 2b 24 69 24 | 4e 37 50 32 61 3b 7e 34 |7$F$+$i$|N7P2a;~4|
|00000d90| 56 24 72 25 5f 25 4b 25 | 50 25 43 25 55 25 21 24 |V$r%_%K%|P%C%U%!$|
|00000da0| 4b 49 3d 3c 28 24 39 24 | 6b 21 23 1b 28 42 0a 69 |KI=<($9$|k!#.(B.i|
|00000db0| 6e 74 65 72 61 63 74 69 | 76 65 20 1b 24 28 42 24 |nteracti|ve .$(B$|
|00000dc0| 4b 35 2f 46 30 24 39 24 | 6b 42 3e 21 22 1b 28 42 |K5/F0$9$|kB>!".(B|
|00000dd0| 5c 22 63 6c 6f 63 6b 20 | 2f 28 73 6b 6b 2d 63 6c |\"clock |/(skk-cl|
|00000de0| 6f 63 6b 29 2f 5c 22 20 | 1b 24 28 42 24 4a 24 49 |ock)/\" |.$(B$J$I|
|00000df0| 24 4e 25 28 25 73 25 48 | 25 6a 24 72 1b 28 42 20 |$N%(%s%H|%j$r.(B |
|00000e00| 53 4b 4b 20 1b 24 28 42 | 24 4e 3c 2d 3d 71 1b 28 |SKK .$(B|$N<-=q.(|
|00000e10| 42 0a 1b 24 28 42 24 4b | 32 43 24 28 21 22 1b 28 |B..$(B$K|2C$(!".(|
|00000e20| 42 5c 22 2f 63 6c 6f 63 | 6b 5c 22 2b 20 53 50 43 |B\"/cloc|k\"+ SPC|
|00000e30| 20 1b 24 28 42 24 47 4a | 51 34 39 24 39 24 6b 24 | .$(B$GJ|Q49$9$k$|
|00000e40| 33 24 48 24 4b 24 68 24 | 43 24 46 24 62 35 2f 46 |3$H$K$h$|C$F$b5/F|
|00000e50| 30 32 44 21 23 1b 28 42 | 43 2d 67 20 1b 24 28 42 |02D!#.(B|C-g .$(B|
|00000e60| 24 47 3b 5f 24 5e 24 6b | 21 23 1b 28 42 0a 1b 24 |$G;_$^$k|!#.(B..$|
|00000e70| 28 42 3c 42 39 54 4a 51 | 34 39 24 47 35 2f 46 30 |(B<B9TJQ|49$G5/F0|
|00000e80| 24 37 24 3f 3e 6c 39 67 | 24 4f 21 22 1b 28 42 43 |$7$?>l9g|$O!".(BC|
|00000e90| 2d 67 20 1b 24 28 42 24 | 37 24 3f 3b 7e 45 40 24 |-g .$(B$|7$?;~E@$|
|00000ea0| 4e 3b 7e 45 40 24 4e 46 | 7c 3b 7e 24 72 41 5e 46 |N;~E@$NF||;~$rA^F|
|00000eb0| 7e 24 39 24 6b 21 23 1b | 28 42 0a 1b 24 28 42 25 |~$9$k!#.|(B..$(B%|
|00000ec0| 2a 25 57 25 37 25 67 25 | 4a 25 6b 30 7a 3f 74 24 |*%W%7%g%|J%k0z?t$|
|00000ed0| 4e 1b 28 42 20 4b 41 4b | 55 54 45 49 2d 57 48 45 |N.(B KAK|UTEI-WHE|
|00000ee0| 4e 2d 51 55 49 54 20 1b | 24 28 42 24 2c 1b 28 42 |N-QUIT .|$(B$,.(B|
|00000ef0| 20 6e 6f 6e 2d 6e 69 6c | 20 1b 24 28 42 24 47 24 | non-nil| .$(B$G$|
|00000f00| 22 24 6c 24 50 1b 28 42 | 20 43 2d 67 20 1b 24 28 |"$l$P.(B| C-g .$(|
|00000f10| 42 24 37 24 3f 24 48 24 | 2d 24 4b 33 4e 1b 28 42 |B$7$?$H$|-$K3N.(B|
|00000f20| 0a 1b 24 28 42 44 6a 24 | 39 24 6b 21 23 1b 28 42 |..$(BDj$|9$k!#.(B|
|00000f30| 0a 1b 24 28 42 25 2a 25 | 57 25 37 25 67 25 4a 25 |..$(B%*%|W%7%g%J%|
|00000f40| 6b 30 7a 3f 74 24 4e 1b | 28 42 20 54 49 4d 45 2d |k0z?t$N.|(B TIME-|
|00000f50| 53 49 47 4e 41 4c 20 1b | 24 28 42 24 2c 1b 28 42 |SIGNAL .|$(B$,.(B|
|00000f60| 20 6e 6f 6e 2d 6e 69 6c | 20 1b 24 28 42 24 47 24 | non-nil| .$(B$G$|
|00000f70| 22 24 6c 24 50 21 22 1b | 28 42 4e 54 54 20 1b 24 |"$l$P!".|(BNTT .$|
|00000f80| 28 42 24 4e 3b 7e 4a 73 | 49 77 24 4b 1b 28 42 20 |(B$N;~Js|Iw$K.(B |
|00000f90| 64 69 6e 67 20 1b 24 28 | 42 24 39 24 6b 21 23 1b |ding .$(|B$9$k!#.|
|00000fa0| 28 42 0a 1b 24 28 42 24 | 3d 24 6c 24 3e 24 6c 21 |(B..$(B$|=$l$>$l!|
|00000fb0| 22 1b 28 42 5c 22 63 6c | 6f 63 6b 20 2f 28 73 6b |".(B\"cl|ock /(sk|
|00000fc0| 6b 2d 63 6c 6f 63 6b 20 | 6e 69 6c 20 74 29 2f 5c |k-clock |nil t)/\|
|00000fd0| 22 20 1b 24 28 42 24 4e | 24 68 24 26 24 4a 25 28 |" .$(B$N|$h$&$J%(|
|00000fe0| 25 73 25 48 25 6a 24 72 | 3c 2d 3d 71 24 4b 41 5e |%s%H%j$r|<-=q$KA^|
|00000ff0| 46 7e 24 39 24 6c 24 50 | 4e 49 24 24 21 23 1b 28 |F~$9$l$P|NI$$!#.(|
|00001000| 42 0a 73 6b 6b 2d 64 61 | 74 65 2d 61 64 20 1b 24 |B.skk-da|te-ad .$|
|00001010| 28 42 24 48 1b 28 42 20 | 73 6b 6b 2d 6e 75 6d 62 |(B$H.(B |skk-numb|
|00001020| 65 72 2d 73 74 79 6c 65 | 20 1b 24 28 42 24 4b 24 |er-style| .$(B$K$|
|00001030| 68 24 43 24 46 49 3d 3c | 28 4a 7d 4b 21 24 4e 25 |h$C$FI=<|(J}K!$N%|
|00001040| 2b 25 39 25 3f 25 5e 25 | 24 25 3a 24 2c 32 44 47 |+%9%?%^%|$%:$,2DG|
|00001050| 3d 21 23 1b 28 42 22 20 | 22 2a 22 5d 29 0a 28 64 |=!#.(B" |"*"]).(d|
|00001060| 65 66 61 6c 69 61 73 20 | 27 73 6b 6b 2d 74 69 6d |efalias |'skk-tim|
|00001070| 65 2d 64 69 66 66 20 23 | 5b 28 73 74 61 72 74 20 |e-diff #|[(start |
|00001080| 66 69 6e 69 73 68 29 20 | 22 c0 09 c2 c3 4f 21 c0 |finish) |"....O!.|
|00001090| 09 c4 c5 4f 21 c0 09 c6 | c7 4f 21 c0 1b 0e 08 c2 |...O!...|.O!.....|
|000010a0| c3 4f 21 c0 1b 0e 08 c4 | c5 4f 21 c0 1b 0e 08 c6 |.O!.....|.O!.....|
|000010b0| c7 4f 21 c9 89 89 1e 5c | 6e 1e 0b 1e 0c 1e 0d 1e |.O!....\|n.......|
|000010c0| 1b 0e 1e 1b 0f 1e 10 1e | 11 1e 12 09 d3 c9 4f 1b |........|......O.|
|000010d0| 0e 08 d3 c9 4f 98 ac 92 | d4 89 1e 15 1e 16 d7 1b |....O...|........|
|000010e0| 0e 18 ab 83 d9 aa 81 da | 21 88 2a 1b 0e 0d 1b 0e |........|!.*.....|
|000010f0| 10 5a 16 0c db 1b 0e 0c | 56 ab 8e 1b 0e 1b 0e 53 |.Z......|V......S|
|00001100| 16 1b 0e 1b 0e 0d dc 5c | 5c 1b 0e 10 5a 16 0c 1b |.......\|\...Z...|
|00001110| 0e 1b 0e 1b 0e 11 5a 16 | 0b db 1b 0e 0b 56 ab 8e |......Z.|.....V..|
|00001120| 1b 0e 1b 0f 53 16 1b 0f | 1b 0e 1b 0e dc 5c 5c 1b |....S...|.....\\.|
|00001130| 0e 11 5a 16 0b 1b 0e 1b | 0f 1b 0e 12 5a 16 5c 6e |..Z.....|....Z.\n|
|00001140| db 1b 0e 5c 6e 56 ab 92 | d4 89 1e 15 1e 16 d7 1b |...\nV..|........|
|00001150| 0e 18 ab 83 dd aa 81 de | 21 88 2a df e0 1b 0e 5c |........|!.*....\|
|00001160| 6e 1b 0e 0b 1b 0e 0c 24 | 2e 09 87 22 20 5b 73 74 |n......$|..." [st|
|00001170| 72 69 6e 67 2d 74 6f 2d | 6e 75 6d 62 65 72 20 73 |ring-to-|number s|
|00001180| 74 61 72 74 20 31 31 20 | 31 33 20 31 34 20 31 36 |tart 11 |13 14 16|
|00001190| 20 31 37 20 31 39 20 66 | 69 6e 69 73 68 20 6e 69 | 17 19 f|inish ni|
|000011a0| 6c 20 68 6f 75 72 2d 64 | 69 66 66 20 6d 69 6e 75 |l hour-d|iff minu|
|000011b0| 74 65 2d 64 69 66 66 20 | 73 65 63 6f 6e 64 2d 64 |te-diff |second-d|
|000011c0| 69 66 66 20 66 2d 73 65 | 63 6f 6e 64 20 66 2d 6d |iff f-se|cond f-m|
|000011d0| 69 6e 75 74 65 20 66 2d | 68 6f 75 72 20 73 2d 73 |inute f-|hour s-s|
|000011e0| 65 63 6f 6e 64 20 73 2d | 6d 69 6e 75 74 65 20 73 |econd s-|minute s|
|000011f0| 2d 68 6f 75 72 20 32 30 | 20 74 20 65 6e 61 62 6c |-hour 20| t enabl|
|00001200| 65 2d 6d 75 6c 74 69 62 | 79 74 65 2d 63 68 61 72 |e-multib|yte-char|
|00001210| 61 63 74 65 72 73 20 6d | 63 2d 66 6c 61 67 20 65 |acters m|c-flag e|
|00001220| 72 72 6f 72 20 73 6b 6b | 2d 6a 61 70 61 6e 65 73 |rror skk|-japanes|
|00001230| 65 2d 6d 65 73 73 61 67 | 65 2d 61 6e 64 2d 65 72 |e-messag|e-and-er|
|00001240| 72 6f 72 20 22 1b 24 28 | 42 30 63 24 26 47 2f 24 |ror ".$(|B0c$&G/$|
|00001250| 4e 3b 7e 34 56 3a 39 24 | 4f 37 57 3b 3b 24 47 24 |N;~4V:9$|O7W;;$G$|
|00001260| 2d 24 5e 24 3b 24 73 1b | 28 42 22 20 22 59 65 61 |-$^$;$s.|(B" "Yea|
|00001270| 72 20 73 68 6f 75 6c 64 | 20 62 65 20 73 61 6d 65 |r should| be same|
|00001280| 22 20 30 20 36 30 20 22 | 1b 24 28 42 42 68 23 32 |" 0 60 "|.$(BBh#2|
|00001290| 30 7a 3f 74 24 4f 42 68 | 23 31 30 7a 3f 74 24 68 |0z?t$OBh|#10z?t$h|
|000012a0| 24 6a 38 65 24 4e 3b 7e | 34 56 24 47 24 4a 24 31 |$j8e$N;~|4V$G$J$1|
|000012b0| 24 6c 24 50 24 4a 24 6a | 24 5e 24 3b 24 73 1b 28 |$l$P$J$j|$^$;$s.(|
|000012c0| 42 22 20 22 32 6e 64 20 | 61 72 67 20 73 68 6f 75 |B" "2nd |arg shou|
|000012d0| 6c 64 20 62 65 20 6c 61 | 74 65 72 20 74 68 61 6e |ld be la|ter than|
|000012e0| 20 31 73 74 20 61 72 67 | 22 20 66 6f 72 6d 61 74 | 1st arg|" format|
|000012f0| 20 22 25 30 32 64 3a 25 | 30 32 64 3a 25 30 32 64 | "%02d:%|02d:%02d|
|00001300| 22 5d 20 39 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |"] 9]).(|defalias|
|00001310| 20 27 73 6b 6b 2d 63 6f | 6e 76 65 72 74 2d 61 64 | 'skk-co|nvert-ad|
|00001320| 2d 74 6f 2d 67 65 6e 67 | 6f 20 23 5b 28 26 6f 70 |-to-geng|o #[(&op|
|00001330| 74 69 6f 6e 61 6c 20 66 | 73 74 72 20 6c 73 74 72 |tional f|str lstr|
|00001340| 29 20 22 c0 09 40 21 1a | c3 5c 6e 59 ab 92 c4 89 |) "..@!.|.\nY....|
|00001350| 1d 1e 06 c7 1b 0e 08 ab | 83 c9 aa 81 ca 21 2a aa |........|.....!*.|
|00001360| b9 cb 5c 6e 59 ab 8b cc | 1b 0e 0d ce 5c 6e cf 5a |..\nY...|....\n.Z|
|00001370| 21 51 aa a9 d0 5c 6e 59 | ab 8b d1 1b 0e 0d ce 5c |!Q...\nY|.......\|
|00001380| 6e cb 5a 21 51 aa 99 d2 | 5c 6e 59 ab 8b d3 1b 0e |n.Z!Q...|\nY.....|
|00001390| 0d ce 5c 6e d0 5a 21 51 | aa 89 d4 1b 0e 0d ce 5c |..\n.Z!Q|.......\|
|000013a0| 6e d2 5a 21 51 1b 0e 15 | 50 29 87 22 20 5b 73 74 |n.Z!Q...|P)." [st|
|000013b0| 72 69 6e 67 2d 74 6f 2d | 6e 75 6d 62 65 72 20 73 |ring-to-|number s|
|000013c0| 6b 6b 2d 6e 75 6d 2d 6c | 69 73 74 20 61 64 20 31 |kk-num-l|ist ad 1|
|000013d0| 38 36 36 20 74 20 65 6e | 61 62 6c 65 2d 6d 75 6c |866 t en|able-mul|
|000013e0| 74 69 62 79 74 65 2d 63 | 68 61 72 61 63 74 65 72 |tibyte-c|haracter|
|000013f0| 73 20 6d 63 2d 66 6c 61 | 67 20 65 72 72 6f 72 20 |s mc-fla|g error |
|00001400| 73 6b 6b 2d 6a 61 70 61 | 6e 65 73 65 2d 6d 65 73 |skk-japa|nese-mes|
|00001410| 73 61 67 65 2d 61 6e 64 | 2d 65 72 72 6f 72 20 22 |sage-and|-error "|
|00001420| 1b 24 28 42 4a 2c 24 6a | 24 5e 24 3b 24 73 1b 28 |.$(BJ,$j|$^$;$s.(|
|00001430| 42 22 20 22 55 6e 6b 6f | 77 6e 20 79 65 61 72 22 |B" "Unko|wn year"|
|00001440| 20 31 39 31 31 20 22 1b | 24 28 42 4c 40 3c 23 1b | 1911 ".|$(BL@<#.|
|00001450| 28 42 22 20 66 73 74 72 | 20 69 6e 74 2d 74 6f 2d |(B" fstr| int-to-|
|00001460| 73 74 72 69 6e 67 20 31 | 38 36 37 20 31 39 32 35 |string 1|867 1925|
|00001470| 20 22 1b 24 28 42 42 67 | 40 35 1b 28 42 22 20 31 | ".$(BBg|@5.(B" 1|
|00001480| 39 38 38 20 22 1b 24 28 | 42 3e 3c 4f 42 1b 28 42 |988 ".$(|B><OB.(B|
|00001490| 22 20 22 1b 24 28 42 4a | 3f 40 2e 1b 28 42 22 20 |" ".$(BJ|?@..(B" |
|000014a0| 6c 73 74 72 5d 20 35 5d | 29 0a 28 64 65 66 61 6c |lstr] 5]|).(defal|
|000014b0| 69 61 73 20 27 73 6b 6b | 2d 63 6f 6e 76 65 72 74 |ias 'skk|-convert|
|000014c0| 2d 67 65 6e 67 6f 2d 74 | 6f 2d 61 64 20 23 5b 28 |-gengo-t|o-ad #[(|
|000014d0| 26 6f 70 74 69 6f 6e 61 | 6c 20 73 74 72 69 6e 67 |&optiona|l string|
|000014e0| 29 20 22 c0 20 19 c2 8e | 0b 40 c4 1d 1e 06 c7 1b |) ". ...|.@......|
|000014f0| 0e 06 1b 0e 08 5c 22 88 | 1b 0e 08 c9 89 94 4f 15 |.....\".|......O.|
|00001500| ca 1b 0e 06 21 16 06 cb | 1b 0e 06 89 c9 61 ab 93 |....!...|.....a..|
|00001510| cc 89 1e 0d 1e 1b 0e cf | 1b 0e 10 ab 83 d1 aa 81 |........|........|
|00001520| d2 21 2a aa fc 0d d3 98 | ab 83 d4 aa f4 0d d5 98 |.!*.....|........|
|00001530| ab 9c d6 1b 0e 06 56 ab | 83 d7 aa e6 cc 89 1e 0d |......V.|........|
|00001540| 1e 1b 0e cf 1b 0e 10 ab | 83 d8 aa 81 d9 21 2a aa |........|.....!*.|
|00001550| d3 0d da 98 ab 9c db 1b | 0e 06 56 ab 83 dc aa c5 |........|..V.....|
|00001560| cc 89 1e 0d 1e 1b 0e cf | 1b 0e 10 ab 83 dd aa 81 |........|........|
|00001570| de 21 2a aa b2 0d df 98 | ab 9c e0 1b 0e 06 56 ab |.!*.....|......V.|
|00001580| 83 e1 aa a4 cc 89 1e 0d | 1e 1b 0e cf 1b 0e 10 ab |........|........|
|00001590| 83 e2 aa 81 e3 21 2a aa | 91 cc 89 1e 0d 1e 1b 0e |.....!*.|........|
|000015a0| cf 1b 0e 10 ab 83 e4 aa | 81 e5 21 2a 5c 5c 21 1b |........|..!*\\!.|
|000015b0| 0e 26 50 2c 87 22 20 5b | 6d 61 74 63 68 2d 64 61 |.&P,." [|match-da|
|000015c0| 74 61 20 6d 61 74 63 68 | 2d 64 61 74 61 20 28 28 |ta match|-data ((|
|000015d0| 73 74 6f 72 65 2d 6d 61 | 74 63 68 2d 64 61 74 61 |store-ma|tch-data|
|000015e0| 20 6d 61 74 63 68 2d 64 | 61 74 61 29 29 20 73 6b | match-d|ata)) sk|
|000015f0| 6b 2d 6e 75 6d 2d 6c 69 | 73 74 20 6e 69 6c 20 67 |k-num-li|st nil g|
|00001600| 65 6e 67 6f 20 6e 75 6d | 20 73 74 72 69 6e 67 2d |engo num| string-|
|00001610| 6d 61 74 63 68 20 73 6b | 6b 2d 68 65 6e 6b 61 6e |match sk|k-henkan|
|00001620| 2d 6b 65 79 20 30 20 73 | 74 72 69 6e 67 2d 74 6f |-key 0 s|tring-to|
|00001630| 2d 6e 75 6d 62 65 72 20 | 69 6e 74 2d 74 6f 2d 73 |-number |int-to-s|
|00001640| 74 72 69 6e 67 20 74 20 | 65 6e 61 62 6c 65 2d 6d |tring t |enable-m|
|00001650| 75 6c 74 69 62 79 74 65 | 2d 63 68 61 72 61 63 74 |ultibyte|-charact|
|00001660| 65 72 73 20 6d 63 2d 66 | 6c 61 67 20 65 72 72 6f |ers mc-f|lag erro|
|00001670| 72 20 73 6b 6b 2d 6a 61 | 70 61 6e 65 73 65 2d 6d |r skk-ja|panese-m|
|00001680| 65 73 73 61 67 65 2d 61 | 6e 64 2d 65 72 72 6f 72 |essage-a|nd-error|
|00001690| 20 22 30 20 1b 24 28 42 | 47 2f 24 4f 24 22 24 6a | "0 .$(B|G/$O$"$j|
|000016a0| 46 40 24 4a 24 24 1b 28 | 42 22 20 22 43 61 6e 6e |F@$J$$.(|B" "Cann|
|000016b0| 6f 74 20 63 6f 6e 76 65 | 72 74 20 30 20 79 65 61 |ot conve|rt 0 yea|
|000016c0| 72 22 20 22 1b 24 28 42 | 24 58 24 24 24 3b 24 24 |r" ".$(B|$X$$$;$$|
|000016d0| 1b 28 42 22 20 31 39 38 | 38 20 22 1b 24 28 42 24 |.(B" 198|8 ".$(B$|
|000016e0| 37 24 67 24 26 24 6f 1b | 28 42 22 20 36 34 20 31 |7$g$&$o.|(B" 64 1|
|000016f0| 39 32 35 20 22 1b 24 28 | 42 3e 3c 4f 42 24 4f 1b |925 ".$(|B><OB$O.|
|00001700| 28 42 20 36 33 20 1b 24 | 28 42 47 2f 24 5e 24 47 |(B 63 .$|(BG/$^$G|
|00001710| 24 47 24 39 1b 28 42 22 | 20 22 54 68 65 20 6c 61 |$G$9.(B"| "The la|
|00001720| 73 74 20 79 65 61 72 20 | 6f 66 20 53 68 6f 77 61 |st year |of Showa|
|00001730| 20 69 73 20 36 33 22 20 | 22 1b 24 28 42 24 3f 24 | is 63" |".$(B$?$|
|00001740| 24 24 37 24 67 24 26 1b | 28 42 22 20 31 35 20 31 |$$7$g$&.|(B" 15 1|
|00001750| 39 31 31 20 22 1b 24 28 | 42 42 67 40 35 24 4f 21 |911 ".$(|BBg@5$O!|
|00001760| 22 1b 28 42 31 34 20 1b | 24 28 42 47 2f 24 5e 24 |".(B14 .|$(BG/$^$|
|00001770| 47 24 47 24 39 1b 28 42 | 22 20 22 54 68 65 20 6c |G$G$9.(B|" "The l|
|00001780| 61 73 74 20 79 65 61 72 | 20 6f 66 20 54 61 69 73 |ast year| of Tais|
|00001790| 79 6f 20 69 73 20 31 34 | 22 20 22 1b 24 28 42 24 |yo is 14|" ".$(B$|
|000017a0| 61 24 24 24 38 1b 28 42 | 22 20 34 35 20 31 38 36 |a$$$8.(B|" 45 186|
|000017b0| 37 20 22 1b 24 28 42 4c | 40 3c 23 24 4f 21 22 1b |7 ".$(BL|@<#$O!".|
|000017c0| 28 42 34 34 20 1b 24 28 | 42 47 2f 24 5e 24 47 24 |(B44 .$(|BG/$^$G$|
|000017d0| 47 24 39 1b 28 42 22 20 | 22 54 68 65 20 6c 61 73 |G$9.(B" |"The las|
|000017e0| 74 20 79 65 61 72 20 6f | 66 20 4d 65 69 6a 69 20 |t year o|f Meiji |
|000017f0| 69 73 20 34 34 22 20 22 | 1b 24 28 42 48 3d 4a 4c |is 44" "|.$(BH=JL|
|00001800| 49 54 47 3d 24 4a 38 35 | 39 66 24 47 24 39 21 2a |ITG=$J85|9f$G$9!*|
|00001810| 1b 28 42 22 20 22 55 6e | 6b 6e 6f 77 6e 20 47 65 |.(B" "Un|known Ge|
|00001820| 6e 67 6f 21 22 20 73 74 | 72 69 6e 67 5d 20 34 5d |ngo!" st|ring] 4]|
|00001830| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 6b 6b |).(defal|ias 'skk|
|00001840| 2d 63 61 6c 63 20 23 5b | 28 6f 70 65 72 61 74 6f |-calc #[|(operato|
|00001850| 72 29 20 22 c0 c1 5c 6e | c3 c4 0d 5c 22 5c 22 21 |r) "..\n|...\"\"!|
|00001860| 87 22 20 5b 69 6e 74 2d | 74 6f 2d 73 74 72 69 6e |." [int-|to-strin|
|00001870| 67 20 61 70 70 6c 79 20 | 6f 70 65 72 61 74 6f 72 |g apply |operator|
|00001880| 20 6d 61 70 63 61 72 20 | 73 74 72 69 6e 67 2d 74 | mapcar |string-t|
|00001890| 6f 2d 6e 75 6d 62 65 72 | 20 73 6b 6b 2d 6e 75 6d |o-number| skk-num|
|000018a0| 2d 6c 69 73 74 5d 20 36 | 5d 29 0a 28 64 65 66 61 |-list] 6|]).(defa|
|000018b0| 6c 69 61 73 20 27 73 6b | 6b 2d 70 6c 75 73 20 23 |lias 'sk|k-plus #|
|000018c0| 5b 6e 69 6c 20 22 c0 c1 | c2 c3 c4 0d 5c 22 5c 22 |[nil "..|....\"\"|
|000018d0| 21 87 22 20 5b 69 6e 74 | 2d 74 6f 2d 73 74 72 69 |!." [int|-to-stri|
|000018e0| 6e 67 20 61 70 70 6c 79 | 20 2b 20 6d 61 70 63 61 |ng apply| + mapca|
|000018f0| 72 20 73 74 72 69 6e 67 | 2d 74 6f 2d 6e 75 6d 62 |r string|-to-numb|
|00001900| 65 72 20 73 6b 6b 2d 6e | 75 6d 2d 6c 69 73 74 5d |er skk-n|um-list]|
|00001910| 20 36 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 6]).(de|falias '|
|00001920| 73 6b 6b 2d 6d 69 6e 75 | 73 20 23 5b 6e 69 6c 20 |skk-minu|s #[nil |
|00001930| 22 c0 c1 c2 c3 c4 0d 5c | 22 5c 22 21 87 22 20 5b |"......\|"\"!." [|
|00001940| 69 6e 74 2d 74 6f 2d 73 | 74 72 69 6e 67 20 61 70 |int-to-s|tring ap|
|00001950| 70 6c 79 20 2d 20 6d 61 | 70 63 61 72 20 73 74 72 |ply - ma|pcar str|
|00001960| 69 6e 67 2d 74 6f 2d 6e | 75 6d 62 65 72 20 73 6b |ing-to-n|umber sk|
|00001970| 6b 2d 6e 75 6d 2d 6c 69 | 73 74 5d 20 36 5d 29 0a |k-num-li|st] 6]).|
|00001980| 28 64 65 66 61 6c 69 61 | 73 20 27 73 6b 6b 2d 74 |(defalia|s 'skk-t|
|00001990| 69 6d 65 73 20 23 5b 6e | 69 6c 20 22 c0 c1 c2 c3 |imes #[n|il "....|
|000019a0| c4 0d 5c 22 5c 22 21 87 | 22 20 5b 69 6e 74 2d 74 |..\"\"!.|" [int-t|
|000019b0| 6f 2d 73 74 72 69 6e 67 | 20 61 70 70 6c 79 20 2a |o-string| apply *|
|000019c0| 20 6d 61 70 63 61 72 20 | 73 74 72 69 6e 67 2d 74 | mapcar |string-t|
|000019d0| 6f 2d 6e 75 6d 62 65 72 | 20 73 6b 6b 2d 6e 75 6d |o-number| skk-num|
|000019e0| 2d 6c 69 73 74 5d 20 36 | 5d 29 0a 28 64 65 66 61 |-list] 6|]).(defa|
|000019f0| 6c 69 61 73 20 27 73 6b | 6b 2d 69 67 6e 6f 72 65 |lias 'sk|k-ignore|
|00001a00| 2d 64 69 63 2d 77 6f 72 | 64 20 23 5b 28 26 72 65 |-dic-wor|d #[(&re|
|00001a10| 73 74 20 6e 6f 2d 73 68 | 6f 77 2d 6c 69 73 74 29 |st no-sh|ow-list)|
|00001a20| 20 22 c0 89 19 1a c3 0c | 0d 38 0d 5c 22 15 1b 0e | "......|.8.\"...|
|00001a30| 06 ab 88 c7 0d c8 20 5c | 22 15 aa 74 1b 0e 09 ab |...... \|"..t....|
|00001a40| 8f ca 1b 0e 09 40 0d 5c | 22 15 1b 0e 09 41 89 16 |.....@.\|"....A..|
|00001a50| 09 ac 71 0c 0d 38 ae 85 | 1b 0e 0b 11 cc 20 89 12 |..q..8..|..... ..|
|00001a60| ac a7 0c cd 56 ab 89 0c | 53 89 14 0d 38 12 aa 99 |....V...|S...8...|
|00001a70| 09 ab 8a 1b 0e 1b 0e cd | 1b 0e 1b 0e 47 53 4f aa |........|....GSO.|
|00001a80| 82 1b 0e 1b 0e 12 cf 14 | 1b 0e 10 ab 83 d1 16 12 |........|........|
|00001a90| 5c 6e 2a 87 22 20 5b 6e | 69 6c 20 73 61 76 65 2d |\n*." [n|il save-|
|00001aa0| 6f 6b 75 72 69 67 61 6e | 61 20 6e 65 77 2d 77 6f |okurigan|a new-wo|
|00001ab0| 72 64 20 64 65 6c 71 20 | 73 6b 6b 2d 68 65 6e 6b |rd delq |skk-henk|
|00001ac0| 61 6e 2d 63 6f 75 6e 74 | 20 73 6b 6b 2d 68 65 6e |an-count| skk-hen|
|00001ad0| 6b 61 6e 2d 6c 69 73 74 | 20 73 6b 6b 2d 63 75 72 |kan-list| skk-cur|
|00001ae0| 72 65 6e 74 2d 73 65 61 | 72 63 68 2d 70 72 6f 67 |rent-sea|rch-prog|
|00001af0| 2d 6c 69 73 74 20 73 6b | 6b 2d 6e 75 6e 69 6f 6e |-list sk|k-nunion|
|00001b00| 20 73 6b 6b 2d 73 65 61 | 72 63 68 20 6e 6f 2d 73 | skk-sea|rch no-s|
|00001b10| 68 6f 77 2d 6c 69 73 74 | 20 64 65 6c 65 74 65 20 |how-list| delete |
|00001b20| 73 6b 6b 2d 6f 6b 75 72 | 69 2d 63 68 61 72 20 73 |skk-okur|i-char s|
|00001b30| 6b 6b 2d 68 65 6e 6b 61 | 6e 2d 69 6e 2d 6d 69 6e |kk-henka|n-in-min|
|00001b40| 69 62 75 66 66 20 30 20 | 73 6b 6b 2d 68 65 6e 6b |ibuff 0 |skk-henk|
|00001b50| 61 6e 2d 6b 65 79 20 2d | 31 20 73 6b 6b 2d 75 73 |an-key -|1 skk-us|
|00001b60| 65 2d 66 61 63 65 20 73 | 6b 6b 2d 68 65 6e 6b 61 |e-face s|kk-henka|
|00001b70| 6e 2d 66 61 63 65 2d 6f | 66 66 2d 61 6e 64 2d 72 |n-face-o|ff-and-r|
|00001b80| 65 6d 6f 76 65 2d 69 74 | 73 65 6c 66 20 73 6b 6b |emove-it|self skk|
|00001b90| 2d 69 6e 73 65 72 74 2d | 6e 65 77 2d 77 6f 72 64 |-insert-|new-word|
|00001ba0| 2d 66 75 6e 63 74 69 6f | 6e 5d 20 34 5d 29 0a 28 |-functio|n] 4]).(|
|00001bb0| 64 65 66 61 6c 69 61 73 | 20 27 73 6b 6b 2d 68 65 |defalias| 'skk-he|
|00001bc0| 6e 6b 61 6e 2d 66 61 63 | 65 2d 6f 66 66 2d 61 6e |nkan-fac|e-off-an|
|00001bd0| 64 2d 72 65 6d 6f 76 65 | 2d 69 74 73 65 6c 66 20 |d-remove|-itself |
|00001be0| 23 5b 6e 69 6c 20 22 c0 | 20 88 c1 89 12 87 22 20 |#[nil ".| ....." |
|00001bf0| 5b 73 6b 6b 2d 68 65 6e | 6b 61 6e 2d 66 61 63 65 |[skk-hen|kan-face|
|00001c00| 2d 6f 66 66 20 6e 69 6c | 20 73 6b 6b 2d 69 6e 73 |-off nil| skk-ins|
|00001c10| 65 72 74 2d 6e 65 77 2d | 77 6f 72 64 2d 66 75 6e |ert-new-|word-fun|
|00001c20| 63 74 69 6f 6e 5d 20 32 | 5d 29 0a 28 62 79 74 65 |ction] 2|]).(byte|
|00001c30| 2d 63 6f 64 65 20 22 c0 | c1 21 88 c2 c3 21 87 22 |-code ".|.!...!."|
|00001c40| 20 5b 72 75 6e 2d 68 6f | 6f 6b 73 20 73 6b 6b 2d | [run-ho|oks skk-|
|00001c50| 67 61 64 67 65 74 2d 6c | 6f 61 64 2d 68 6f 6f 6b |gadget-l|oad-hook|
|00001c60| 20 70 72 6f 76 69 64 65 | 20 73 6b 6b 2d 67 61 64 | provide| skk-gad|
|00001c70| 67 65 74 5d 20 32 29 0a |                         |get] 2).|        |
+--------+-------------------------+-------------------------+--------+--------+